This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
I tried to compile your code and judging from the number of errors I got, this can not be your actual code. ~Umberto Nongeroson 19.Jan.04 06:52 PM a Web browser Domino Designer All ReleasesAll Platforms
Redim Infox(20) As String
Set session = New NotesSession
Set db = session.CurrentDatabase
fileNum% = Freefile()
counter% = 0
Open "c:\lotus\notes\data\FILE.txt" For Input As fileNum%
countRec% = 0
Do While Not Eof(fileNum%)
Line Input #fileNum%, InData$
counter% = counter% + 1
If Len(InData) > 100 Then 'You are missing the "$" after InData
If counter% = 1 Then 'The following should be 2 lines and you are missing the "(" after ReplaceItemValue 'You are also missing the "$" after InData
Set doc = New NotesDocument(db) Call doc.ReplaceItemValue "Form",Left$(InData,3))
Call doc.ReplaceItemValue("SendTo","Special User/Server")
Call doc.ReplaceItemValue("From","Special User/Server")
Call doc.ReplaceItemValue("ReturnReceipt","0")
Infox(counter%-1) = Mid$(InData,56,114) 'You are missing the "$" after InData
Call doc.ReplaceItemValue("Detail",Mid$(InData,56,114)) 'You are missing the "$" after InData
Else
Infox(counter%-1) = Mid$(InData,56,114) 'You are missing the "$" after InData
End If
countRec% = countRec% + 1
Elseif Left$(InData,5) = "$$$$$" Then 'You are missing the "$" after InData
Call doc.ReplaceItemValue("Detail",Infox)
Call doc.save(True, False) 'WORKS!
Call doc.Send(True, "Special User/Server") 'You appear to have 3 extra spaces in the name
Redim Infox(20)
countRec% = 0
counter% = 0
Else
countRec% = 0
End If
Loop
Close fileNum%
Return to top
. . I tried to compile your code and ju... (~Dan Elhipister... 19.Jan.04) 
Print this page
